home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / editors / rastms / demo2.bas < prev    next >
Encoding:
BASIC Source File  |  1993-01-27  |  1.7 KB  |  39 lines
  1. '* ************************************************************ *
  2. '* Demo2.bas For QuickBASIC                                     *
  3. '*                                                              *
  4. '* Rcar was created by saving the image as BASIC DATA           *
  5. '* from Raster Master.                                          *
  6. '* ************************************************************ *
  7.  
  8. OPTION BASE 1
  9. DEFINT A-Z
  10. DIM Rcar(130)
  11. FOR I = 1 TO 130
  12.   READ Rcar(I)
  13. NEXT I
  14. SCREEN 7                        'SCREEN 13 for 256 color images
  15. LINE (0, 0)-(319, 199), 1, BF
  16. PUT (0, 0), Rcar, PSET
  17.  
  18. '  QuickBASIC, Array Size= 130 Width= 28 Height= 16 Colors= 16
  19. '  Rcar
  20.  
  21. DATA &H001C,&H0010,&HC3FF,&HFFFF,&H0000,&H0000,&H3C00,&H0000
  22. DATA &H0000,&H0000,&H80FF,&HFFFF,&H0000,&H0000,&H7F00,&H0000
  23. DATA &H3F00,&H0000,&H019F,&HFFFF,&H0100,&H0080,&HC160,&H0080
  24. DATA &H4000,&H0000,&H008E,&HFFFF,&H0000,&H00C0,&H8071,&H00C0
  25. DATA &H8000,&H0000,&H00E4,&HFF7F,&H0000,&H0060,&H801B,&H0060
  26. DATA &H0001,&H0000,&H00E0,&HFF3F,&H0000,&H0030,&HC01F,&H0030
  27. DATA &H8001,&H0000,&H00C0,&HFF00,&H0000,&H0000,&HFF3F,&H00FF
  28. DATA &H001C,&H0000,&H1080,&H3F00,&H1000,&H0000,&HFF7F,&HC0FF
  29. DATA &H8F3F,&H00EF,&H0000,&H5F00,&H0000,&H4000,&HFFFF,&HE0FF
  30. DATA &HDF71,&H80F0,&H0080,&H6F00,&H0080,&H6000,&HFFF1,&HF0F8
  31. DATA &HDF60,&H00F0,&H0080,&H2F00,&H0080,&H2000,&HFFE0,&H70F0
  32. DATA &H5F40,&H00E0,&H0004,&H0F02,&H0004,&H0002,&H7FC4,&H30E2
  33. DATA &H1F04,&H00C2,&H000A,&H0F05,&H000A,&H0005,&H7FCA,&H30E5
  34. DATA &H000E,&H0007,&H7FC4,&H3FE2,&H0004,&H0002,&H0004,&H0002
  35. DATA &H0004,&H0002,&HFFE0,&H7FF0,&H0000,&H0000,&H0000,&H0000
  36. DATA &H0000,&H0000,&HFFF1,&HFFF8,&H0000,&H0000,&H0000,&H0000
  37. DATA &H0000,&H0000
  38.  
  39.